rm(list = ls())

## packages 

library(tidyverse)
library(fixest)

## Load data  

dat <- readRDS('data/civey_clean.rds') 

## Estimate 

m1 <- feols(vote_afd ~ summer_bin | user_id, 
            data = dat %>% filter(freibad_in_zip == 0 & foreign_non_eu_share_bin == 'High'),
            cluster = ~ user_id) 

etable(m1)


